10 IFA=.THENA=1:LOAD"SHPSQUARE BOOT.O",8,1
20 SYS49152,40960,35840,"SHAPE.SHP",16384,"SHAPESQUARE"